home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
gsdrgb.for
< prev
next >
Wrap
Text File
|
1991-05-01
|
510b
|
22 lines
SUBROUTINE GSDRGB(ICOLOR,RED,GRN,BLU,IERR)
IMPLICIT NONE
INTEGER ICOLOR,IERR
INTEGER*1 IAND
REAL*4 RED,GRN,BLU,RGB(3)
INCLUDE DIGLIB$KOM:GCDCHR.PRM
C
C DEFINE A COLOR
C
IF ( IAND(IDVBTS,64) .EQ. 0 .OR.
1 (ICOLOR .GT. NDCLRS) .OR.
2 (ICOLOR .LT. 0)) GO TO 900
IERR = 0
RGB(1) = RED
RGB(2) = GRN
RGB(3) = BLU
CALL GSDRVR(10,FLOAT(ICOLOR),RGB)
RETURN
900 IERR = -1
RETURN
END